10 POKE56,56:POKE55,0:CLR:POKE53371,0
14 NM$="[205]ARK [212]REON
16 AD$[178]"OF (null)T. (null)OUIS (null)(null)
20 DV=PEEK(186):IFDV<8THENDV=8
22 HZ$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
24 SP$="                                        "
26 EB$(0)="  @    @  "
27 EB$(1)=" @    @   "
28 EB$(2)="   @    @ "
30 POKE53281,0:POKE53280,0:PRINT"[147]"
32 X=1:Y=0:XX=36:YY=22:GOSUB100
34 PRINTTAB(4)"[129][176][192][192][178][192][192][174] [176][192][192][192][192][192][174] [176][192][192][192][192][192][174] [176][192][192][174]  [176]
35 [153][163]4)"   (null)    (null)     (null) (null)     (null) (null)  (null)  (null)
36 PRINTTAB(4)"   [177]    [173][192][192][192][192][192][189] [173][192][192][192][192][192][189] [189]  [173][192][192][189]
38 [153]"PRINT#        (null)LEFT$VAL (null)RIGHT$CHR$LEFT$(null)(null) (null)(null)ATNSTR$(null)(null)ATN(null)"
40 [153]"     (null)(null)(null)(null) (null)ASC (null)LEFT$VAL (null)(null)(null)(null)LEFT$ LEN(null)(null)(null)VAL(null)(null)
50 IFGTHEN120
60 G=1
70 SYS57812"TOON.FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
72 POKE53272,31
80 SYS57812"TOON.ML",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
90 SYS57812"TOON 179.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
96 GOTO120
100 POKE214,Y:PRINT
102 PRINTTAB(X)"[176]"LEFT$(HZ$,XX)"[174]"
104 FORI=1TOYY:PRINTTAB(X)"[221]"LEFT$(SP$,XX)"[221]":NEXT
106 PRINTTAB(X)"[173]"LEFT$(HZ$,XX)"[189]"
108 RETURN
120 GOSUB680:POKE214,9:PRINT:PRINT" 1[154] [202]UST SHOW [155][212]OON 179[154]."
130 PRINT" 2[154] [211]HOW [155][212]OON 179[154] AND PRINT IT ON A
140 [153]"   7-PIN (1525-EMULATING) PRINTER.
150 PRINT" 3[154] [211]HOW [155][212]OON 179[154] AND PRINT IT ON AN
160 [153]"   8-PIN (VALPSON-EMULATING) PRINTER.
190 PRINT" 4[159] [210]ETURN TO [204][207][193][196][211][212][193][210].
200 [151]198,0
206 [139][187](1)[177].98[167][151]214,3:[153]:[153][163]13)EB$([187](1)[172]3)
210 [161]A$:[139]A$[179]"1"[176]A$[177]"4"[167]206
220 A1[178][197](A$):[139]A1[178]4[167]40000
240 [139]A1[178]1[167]600
250 [139]A1[178]2[167]TB[178]80:[137]430
252 [139]A1[179][177]3[167]200
260 [141]680
270 [151]214,11:[153]
280 [153][163]7)"    STR$VAL(null)(null)RIGHT$(null)(null)      (null)RIGHT$STR$(null)LEFT$
290 PRINTTAB(7)" 1[154] [211]INGLE       WIDE
300 [153][163]7)" 2CONT LENRT          NORMAL
310 PRINTTAB(7)" 3[154] [196]OUBLE       NARROW
320 [153][163]7)" 4CONT STR$OUBLE       WIDE
330 PRINTTAB(7)" 5[154] [209]UAD         NARROW
340 [153][163]7)" 6CONT (null)UAD         NORMAL
342 PRINTTAB(7)" 7[159] [194]ACK TO THE [205]AIN [205]ENU
350 [151]198,0
360 [161]A$:[139]A$[179]"1"[176]A$[177]"7"[167]360
370 A2[178][197](A$):[139]A2[178]1[167] DS[178]0:BT[178]1:TB[178]80
380 [139]A2[178]2[167] DS[178]4:BT[178]1:TB[178]120
390 [139]A2[178]3[167] DS[178]1:BT[178]1:TB[178]160
400 [139]A2[178]4[167] DS[178]1:BT[178]2:TB[178]80
410 [139]A2[178]5[167] DS[178]3:BT[178]2:TB[178]160
420 [139]A2[178]6[167] DS[178]3:BT[178]3:TB[178]120
422 [139]A2[178]7[167]30
430 [141]680
440 [151]214,11:[153]
450 [153][163]9)"    (null)ATNPEEKCLOSE(null)(null)(null)RIGHT$(null)RIGHT$(null)(null)
460 PRINTTAB(9)" 1[154] [204]EFT
470 [153][163]9)" 2CONT     LENENTER
480 PRINTTAB(9)" 3[154]         [210]IGHT
490 [139]A2[179][177]3[175]A2[179][177]5[167]520
500 [153][163]9)" 4CONT   LENENTER-LEFT
510 PRINTTAB(9)" 5[154]       [195]ENTER-RIGHT
512 [153][163]9)" 6OPEN PEEKACK TO (null)AIN (null)ENU
520 POKE198,0
530 GETA$:IFA$<"1"ORA$>"6"THEN530
532 IFA$="6"THEN30
540 IFA$="1"THENTB=0:GOTO600
550 IFA$="2"THEN600
560 IFA$="3"THENTB=TB*2:GOTO600
570 IFA2<>3ANDA2<>5THEN520
580 IFA$="4"THENTB=53:GOTO600
590 TB=266
600 IFA1=1THENGOSUB930
608 POKE251,64:POKE252,96:POKE253,92:IFG=1THENSYS51456
610 SYS51459
620 IFA1=2THENSYS49152,TB,128:GOTO660
630 IFA1=3THENSYS49155,TB,DS,BT,BT*320,128:GOTO660
640 POKE198,0
650 GETA$:IFA$=""THEN650
660 POKE186,DV:SYS51459
670 GOTO30
680 POKE214,8:PRINT:FORI=1TO14:PRINTTAB(2)LEFT$(SP$,35):NEXT:RETURN
930 GOSUB680
940 X=3:Y=10:XX=32:YY=8:GOSUB100
950 POKE214,12:PRINT
952 PRINTTAB(7)"[155][212]HE WINNER OF [212][207][207][206] 179 IS[154]"
954 PRINTTAB(20-LEN(NM$)/2)NM$
956 PRINTTAB(20-LEN(AD$)/2)AD$
960 PRINTTAB(6)"[155][208]RESS A KEY TO SEE [212]OON 179."
970 POKE198,0
980 GETA$:IFA$=""THEN980
990 RETURN
10000 D=PEEK(186):N$="0:B.TOON 179":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END